“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


**F ILE**1D**LOGGER 


LLLLLLLLLL 
LLLLLLLLLL 


LLLLLLLLLL 
LLLLLLLLLL 


S8888888ss 
S8888S8Sss 


— | 


ifose 307-1 8he 99:85:88 — SEEKSumshasten:FERE cecaLoGcER.FoR:1 


Version: *v04-000' 
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COPYRIGHT (c) 1978 1980 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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SOF TWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
SION OF T Me, ABOVE COPYRIGHT NOTICE. THIS Sort ARE OR ANY OTHER * 
S THEREOF MA v Not BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
THER PERSON, NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. * 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Author Brian Porter Creation Date 17-JUN-1981 
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Functional description: 
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This module displays the vms time and decoded logging sid for 
the error log entry. 


Modified by: 

VO3-003 SARO194 Sharon A. Reynolds, 20-F eb-1984 
Added an SYE date that adds Micro Vax support. 

v03-002 SARO1 Sharon A. Reynolds, 5-0ct-1983 
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v03-001 SAR0064 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


HAAHASASAOSAAHOOOOOOOOOa AAQqQaaaan o POOOOOOAOOOIOAOOOOOOOAAAOOOOLS 


01 
01 
$1 

1 
01 
0 
3 
05 
02 
03 
02 
03 
02 
02 
03 
03 
02 
03 
02 
02 
02 
0% 
bs 
02 
03 
02 
03 
02 
Of 
0 
0; 
04 

4 

‘ 

4 

¢ 

4 

4 

4 

4 

4 

< 


v02-003 BP0003 Brian Porter, 28-SEP-1981 
Corrected hardware revision problem with 11/780. 
v02-002 BP0002 Brian Porter, 17-AUG~-1981 
; Added 11/730 support. 
5 v02-001 BP0001 Brian Porter, 5-AUG-1981 
: a Added code to count Lines output. 
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Subroutine LOGGER (Lun,entry_herald) 
include ‘src$:msghdr.for /nolist' 
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Character*! revis on, tegter (8) 


Data revision_letter o AY, OC". *O* .*E*, FT Ns 


Logical*4 sysSasctim 

character*26 sys$asctim_string 

data sysS$asctim_string(1:2) ol Fe 
data sysSasctim_string(26:26) /te'/ 
integer*4 compress4 

integers4 compressc 

integer*4 lLogging_cpu_type : 

integer*4 hardware_revision,revision_index 
integere4 serial_number 

integer*4 micro_code_revision 


{t f.net. sysSasctim(,sys$asctim_string(3:25) ,emb$q_hd_time,%val(0))) 
n 

sys$asctim_string(3:3) = ‘s' 

endif 


logging_cpu_type = LibSextzv(24,8,emb$l_hd_sid) 
call Linchk (lun,2) 


11/78Xx 


aon 


if (logging_cpu_type .eq. 255) then 


hardware_revision = LipSextzy {19.5 ombSl bd sid) 
-12,emb$l_hd_s 


write(lun,10) entry_herald sysfesctio string,’ KA780 REV# ', 
1 hardware_revision;' SERIAL erst 8 number 

10 format(/' *,a<min(len(entry_herald) ,243>, ; 
1 a<compressc (sys$asctim_string)> -i<compress4 (hardware_revision)>, 
1 '.' a, i<compress4 (serial_numbers>,'.°) 


serial_number = LibSextzv( 
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else if (logging_cpu_type .eq. 1) then 
If (LIBSEXTZV(22,2,emb$l_hd_sid) .£Q. 0) then 
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byte Lun 
character*(*) entry_herald 
| 


Nn 5 
16-Sep-1984 00:22: VAX-11 FORTRAN V3.4-56 Pa 3 
Br8ep-19Be 13:55:88 DISKSVMSMAS TER: LERF.SRCILOGGER.FOR; 1° 
hardware_revision = LU pat) i t Sed emb$\_hd_sid) 
serial_number = LibSextzv(0,12,emb$l_hd_sidd 


write(lun,10) gneryherald sysfesctia string,’ KA780 REV# ', 
1 hardware_revision,’ SERIAL# ',serial_number 


} 
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Else 


Hardware_revision = LIBSEXTZV(18,4,emb$l_hd_sid) 
Serial_number = LIBSEXTZV(0 le emb$\_hd_Sid 
Revision_index = LIBSEXTZV(15,5,emb$T_hd_sid) 


Write (Lun,30) entry_herald,sys$asctim_string,' KA785 REV# ', 
1 hardware revision, revision_letter( revision_index+! ), 
2 ' SERIALF ',serial_number 


30 format(/* *,a<min(len(entry_herald) ,24)>, 

a<compressc (sys$asctim_string)>.a scgogpreses (hardware_revision)>, 
: Or, 28 t<compreses (serial_number)>,'.' 

n 
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else if (logging_cpu_type .eq. 2) then 


hardware_revision = Lib$Sextzv(0 f-gunst hd_sid) 
micro_code_revision = LibSextzv(8,8,emb$\_hd_sid) 


write(lun,20) entry_herald,sysSasctim string. | KA750 REV# ', 
1 hardware_revision,’ MIC# ',micro_code_revision 
20 format(/" *,a<min(len(entry_heraldy,24)5, 
1 a<compressc (sys$asctim_string)>,a,i<compress4 (hardware_revision)>, 
1 '.*,a,i<compress4 (micro_code_revision)>,’.") 
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11/730 
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else if (lLogging_cpu_type .eq. 3) then 


hardware_revision = Lib$Sextzv(0 B-gmbSi hd_sid) 
micro_code_revision = lLibSextzv(8.8,emb$\_fd_sid) 


write(lun,25) entry_herald,sys$asctim string.” KA730 REV# °, 
1 hardware_revision,’ MIC# *,micro code revision 
25 format(/* *,a<min(len(entry_herald),24)5, pu 
1 a<compressc (sys$asctim_string)>,a,i<compress4 (hardware_revision)>, 
1 ‘.*,a,i<compress4 (micro_code_revision)>,'.") 
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11/7xx 
Else if (logging _cpu_type .£Q. 4) then 
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Zy{16.8 emb$\_hd_sid) 


Hardware_revision = LIB 


SEX 

Serial_number = LIBSEXTZV(0,12,emb$l_hd_sid? 
: Write (lun,10) entry heral 
ERI 


sysSasctim string,’ KA7XX REV# °, 


T 
0 
d 
AL# *,serial_number 


1 hardware_revision,” § 


Micro VAX 
Else if (logging_cpu_type .EQ. 7) then 


oon 


41 Hardware_revision = LIBSEXTZV(0 g-gn hd_sid) 
4 Micro_code_revision = LIBSEXTZV(8,8,emb$\_fd_sid) 
44 Write (lun,25) entry herald sysSasctim_string * UVAX1 REV# ', 


45 1 hardware_revision,” MIC# ",micro_code_revision 


4 Cc 
4 C Additional ‘‘cpu type’ support should be added by expandin 
a3 c the ELSE-1F-THEN 3 this point. 5 . 
C 
ry! else 
38 write(lun,1000) entry_heraid syererct is string 
54 1000 format(/' ',a<min(LenTentry_herald) ,24)5, 
55 1 a<compressc (sys$asctim_string)>) 
0 28 endif 
025 
0258 return 
0259 
0260 end 
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PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
-00000000 I*4 
s-seeeeeee I 


ARRAYS 
Address Type 
=00000000 L*1 


1-00000088 10° 


Type Name 
1*4 COMPRESS4 


Address Label 


Total Space Allocated 


Name 
LOGGER 

Name 

EMBSL_HD_SID 
EMBSW-HD~ERRSEQ 
HARDWARE REVISION 
REVISION. INDEX 
SYSSASCTIM_STRING 
Name 

EMB 

EMBSO_HD_TIME 


REVISTON- LETTER 


Address 


1-00000006 20° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 


I*4 COMPRESSC 


1-000000FB 25° 


Type Name 
I*4 LIBSEXTZV 
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Attributes 

PIC CON REL LCL SHR Bx RD NOWRT LONG 
PIC CON eet LCL SHR NOEX RD NOWRT LONG 
PiC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Address Type Name 


0000008 I*2) EMBSW_HD pera 
-0000038a iy ENTRY HERAL 


LOGGING CPuL TYPE 
~00000084 te MICRO CODE _REVISION 
-00000030 1*4 SERIAL NUMBER 


Bytes Dimensions 


512 (0:511) 
8 (s 
8 (8) 
Address Label Address Label Address Label 


1-00000080 30° 1-00000120 1000° 


Type Name Type Name 
LINCHK L*4 SYSSASCTIM 


~11_ FORTRAN Rif - 4-56 
ERF .SRCJLOGGER.FOR; "ty 


$383333388 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:LOGGER/OBJ=0BJ$:LOGGER MSRCS$:LOGGER 


/CHECK= (NOBOUNDS ,OVE RF LOW NC NOUNDERF LOW) 
= (NOS YRBOL § TRACEBA 
is ANOARD= (NOSY NTAK NO ae ORM) | 
/*7 “MOG TFLOATING 714 Loi Atae /WARNINGS /NOD LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 3-6 seconds 
Elapsed Time: g seconds 
Page Faults: 15 
Dynamic Memory: 184 
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